﻿
Partial Class Interfaz_MasterPage
    Inherits System.Web.UI.MasterPage
    Dim CL As New ControladorLogica
    Dim nombreUsuario As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        LabelUser.Text = Session("user").ToString
        Dim usuario As Usuario = DirectCast(CL.ObtenerUsuarioUserID(LabelUser.Text).Item(0), Usuario)
        Dim empleado As Empleado = DirectCast(CL.obtenerEmpleadoFK(usuario.RefEmpleado).Item(0), Empleado)
        Me.LblNom.Text = "Nombre:" + empleado.Nombre + " " + empleado.Apellido
        Me.LblEdad.Text = "Edad:" + empleado.Edad
        Me.LblDir.Text = "Direccion:" + empleado.Direccion
        ImageIndex.ImageUrl = empleado.RutaFoto
        FuncionAviso()
    End Sub


    Protected Sub BtnLogout_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnLogout.Click
        Session("user") = ""
        Response.Redirect("Principal.aspx")
    End Sub

    Private Sub FuncionAviso()
        Dim query As String = "select count(*) cuenta from solicitudes where estado ='P'"
        Dim cantidadPendientes As Integer = CInt(CL.Ejecuta(query).Item("cuenta").ToString)

        If cantidadPendientes <> 0 Then
            Image3.Visible = True
            Image4.Visible = False
        Else
            Image3.Visible = False
            Image4.Visible = True
        End If
    End Sub
    
End Class

